home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tpsqapi1.zip / $ZZAPTMP.ZIP / TESTADD.PAS < prev   
Pascal/Delphi Source File  |  1992-02-13  |  354b  |  18 lines

  1. uses strings,msgtosq,fidofmt;
  2.  
  3. var sqfile  : string;
  4.     sdmfile : string;
  5.     newnum  : word;
  6.     res     : integer;
  7.     mrec    : _fidomsgtype;
  8.  
  9. begin
  10.  
  11. write('enter SDM file : ');    readln(sdmfile);
  12. write('enter squish file : '); readln(sqfile);
  13.  
  14. res := SDMToSQD(sdmfile,sqfile,mrec,newnum,True);
  15.  
  16. writeln('result code = ',res);
  17. end.
  18.